home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / RISCBBS / !RiscBBS / Menus / Msgbase / LoginScan < prev    next >
Text File  |  1992-02-24  |  523b  |  32 lines
  1. {
  2.  report `Login mailscan`
  3.  
  4.  defopt Y= `Yes` 0 ``
  5.    a_reset `A0 B G`
  6.    m_read `1 G N U`
  7.    if RET=0
  8.      base M Msgbase.LoginZip
  9.    else
  10.      menu Main
  11.    endif
  12.  endopt
  13.  
  14.  defopt N= `No` 0 ``
  15.    base S Main
  16.  endopt
  17.  
  18.  defopt ¤= `Yes` 0 ``
  19.    a_reset `A0 B G`
  20.    m_read `1 G N U`
  21.    if RET=0
  22.      base M Msgbase.LoginZip
  23.    else
  24.      menu Main
  25.    endif
  26.  endopt
  27. }
  28. {attr 4 3}  -- Arcland Mail-Check --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll attr 0 3}
  29.  
  30.  
  31. Do you wish me to scan for new mail to you? [Y/n] : {fg 7 eof}
  32.